home *** CD-ROM | disk | FTP | other *** search
/ Complete Internet Archive / Complete Internet Archive.iso / Web Boards / WebForum_tar(2).Z / WebForum_tar(2) / WebForum / src / top.pl < prev    next >
Encoding:
Text File  |  1995-01-23  |  1.6 KB  |  79 lines
  1. #
  2. # top-level access: show all the Forums
  3. # 
  4. #
  5. # Copyright (C) 1994 Afzal Ballim
  6.  
  7. ############################################################
  8. #
  9. # WFCommandTop: display all of the available forums.
  10. #
  11. sub WFCommandTop {
  12. local (%in)=@_;
  13.  
  14. # check to see if this has been called with a sort option
  15. # if not set alphabetic by default
  16. if ($in{"sortmethod"} eq "") {
  17.  $in{"sortmethod"}="alphabetic";
  18. }
  19.  
  20. # get the list of directories in the spool directory.
  21. # Those are the forums
  22. opendir(DIR,"ABSWFSPOOL");
  23. @slist=readdir(DIR);
  24. close(DIR);
  25.  
  26. #get the info for the directories
  27. for (@slist) {
  28.     next unless -d "ABSWFSPOOL/$_";
  29.     next if $_ eq '.';
  30.     next if $_ eq '..';
  31.     push(@forums,$_);
  32. }
  33.  
  34. $thelist="";
  35.  
  36. # sort the forums
  37. if ($in{"sortmethod"} eq "alphabetic") {
  38.     @forums=sort @forums; }
  39. else {
  40.     @forums = sort WFTopstatbymostrecent @forums;
  41. }
  42.  
  43. foreach $fname (@forums) {
  44.     $fnamedec=&WFDecodeDatum($fname);
  45.     $thelist = $thelist . <<EI;
  46. <li>
  47. <form method="POST" action="STD_DOCOMMAND">
  48. <input type="hidden" name="command" value="forum">
  49. <input type="hidden" name="forum" value="$fname">
  50. <input type="submit" value="$fnamedec">
  51. </form>
  52. </li>
  53. EI
  54. }
  55.  
  56. if ($in{"sortmethod"} eq "alphabetic") {
  57.     &WFIncFile("ABSWFHTML/TOP.HTML",
  58.         FORUMLIST,"$thelist",
  59.         SORTYPE,"$in{sortmethod}",
  60.         ASORT,checked,
  61.         MRCSORT,'') }
  62. else {
  63.     &WFIncFile("ABSWFHTML/TOP.HTML",
  64.         FORUMLIST,"$thelist",
  65.         SORTYPE,"$in{sortmethod}",
  66.         ASORT,'',
  67.         MRCSORT,checked) }
  68.  
  69. return "";
  70. }
  71.  
  72. sub WFTopstatbymostrecent {
  73.  local (@d1) = stat("ABSWFSPOOL/$a");
  74.  local (@d2) = stat("ABSWFSPOOL/$b");
  75.  $d2[9] <=> $d1[9]; 
  76. }
  77.  
  78. 1;
  79.